home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs18.d81
/
graphaid.arc
/
MENU
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
2KB
|
29 lines
2 REM GRAPHIC AIDS (C)1985 BRIAN CONRAD
3 REM BLUE MOUNTAIN COMMODORE USER'S GROUP
4 REM WALLA WALLA, WASHINGTON
8 FORI=1TO7:READA$(I):NEXT
10 POKE53280,11:POKE53281, 0:PRINT"[147][142]";
11 PRINT" ucccccccccccccci ************b GRAPHIC AIDS b**";
12 PRINT"********** jcccccccccccccck [155]1 PSHOP FLIP : CR";
13 PRINT"EATE REVERSED PRINT- SHOP SCREENS [129] [155]2[129] KOAL";
14 PRINT"A FLIP : CREATE REVERSED KOALA SCREENS ";
15 PRINT"[158] [155]3[158] DOODLE/PSHOP: CONVERT DOODLE SCREENS TO PRINTSHO";
16 PRINT"P FORMAT [155]4 PSHOP/DOODLE: CONVERT PRINTSHOP ";
17 PRINT"SCREENS TO DOODLE [155]5 PSHOP/KOALA : CONVERT PRINTSHOP ";
18 PRINT" SCREENS TO KOALA [156] [155]6[156] DOODLE/KOALA: CONVERT DOODLE SCR";
19 PRINT"EENS TO KOALA FORMAT [154] [155]7[154] KOALA KRUNCHER: CREAT";
20 PRINT"ES COMPACT KOALA FILES WHICH ";
21 PRINT" CAN BE LOADED AND DISPLAYED FROM BASIC[158][184][184][184][184][184][184][184][184]";
22 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184] [146][154]PRESS(1-7)FORSELECTION[158] ";
23 PRINT" [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185] BLUE MOUNTAIN COMMODORE U";
24 PRINT"SER'S GROUP WALLA WALLA, WASHINGTON ";
25 PRINT" "
26 POKE2023,160:POKE56295,5
27 GETA$:IFA$>"7"ORA$<"1"THEN27
28 I=VAL(A$)
29 PRINT"[147]LOAD"+CHR$(34)+A$(I)+CHR$(34)",8"
30 PRINT"RUN"
32 POKE631,13:POKE632,13:POKE198,2:NEW
40 DATA PSHOP FLIP,KOALA FLIP,DOODLE/PSHOP,PSHOP/DOODLE,PSHOP/KOALA
42 DATA DOODLE/KOALA,KOALA KRUNCHER